.onLoad <-function(libname,pkgname)
{
    methods::setClass(
    	"nm.data", 
    	methods::representation(
    		data = "data.frame", 
    		eta = "data.frame", 
    		theta = "data.frame", 
    		omega = "data.frame", 
    		sigma = "data.frame"
    	)
    )
}
.onAttach <- function(libname,pkgname){
	packageStartupMessage(paste('metrumrg',utils::packageDescription('metrumrg',fields='Version')))
	packageStartupMessage('enter "?metrumrg" for help')
}

